Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1331 1639 (N35W41 L=296)  1203    193        3 (1239/1611-1413/1663) -15.9 W33-W47 N31-N38
      2 1624 1618 (N25W64 L=320)  1478    284        0 (1520/1545-1728/1661) -42.7 W55-W70 N17-N29
      3  321 1461 (N49E54 L=201)   540     48        2 ( 303/1431- 347/1495) -39.8 E59-E49 N46-N51
      4  254 1321 (N40E58 L=197)   789     97        2 ( 228/1285- 281/1376)  56.3 E61-E55 N37-N43
      5 1544 1334 (N12W40 L=295)   341     97        1 (1499/1297-1584/1356) -56.3 W37-W41 N08-N14
      6 1206 1196 (N13W14 L=270)   824    276        0 (1155/1067-1264/1298) -90.0 W12-W16 N04-N19
      7 1627 1228 (N04W43 L=298)   319     73        2 (1593/1204-1658/1259)  21.8 W39-W45 N02-N05
      8 1870 1193 (S06W65 L=320)   680    105        2 (1847/1129-1891/1230)  80.5 W62-W67 S09-S03
      9 1677 1111 (S04W43 L=298)   342     96        0 (1650/1066-1706/1150) -78.7 W41-W44 S06-S01
     10 1822 1039 (S13W55 L=310)  1025    221        3 (1792/ 933-1846/1128)  55.0 W49-W57 S17-S07
     11  639  963 (N11E24 L=231)   410    157        0 ( 599/ 889- 672/1024) -83.7 E26-E23 N06-N15
     12  787  809 (S00E18 L=237)   952    341        1 ( 707/ 673- 903/ 866)  20.6 E26-E10 S06-N02
     13 1655  745 (S25W35 L=290)   289     55        0 (1637/ 722-1679/ 770) -53.1 W33-W37 S27-S23
     14 1184  675 (S17W02 L=257)   684    181        3 (1122/ 631-1236/ 738)  26.6 E02-W06 S19-S13
     15  641  655 (S07E32 L=224)   288     87        2 ( 607/ 625- 674/ 689) -63.4 E33-E29 S08-S04
     16  588  562 (S12E38 L=217)  1726    354        5 ( 514/ 430- 659/ 661)  72.6 E44-E33 S20-S04
     17 1564  491 (S41W26 L=281)  2273    402        5 (1444/ 384-1690/ 655)  29.5 W14-W38 S46-S32
     18  261  596 (S05E68 L=188)  1571    138        3 ( 208/ 552- 303/ 640) -36.9 E74-E62 S08-S02
     19  356  544 (S09E59 L=196)   724     87        3 ( 337/ 502- 394/ 579)  45.0 E62-E55 S12-S07
     20  433  451 (S16E57 L=198)  2474    241        7 ( 384/ 339- 472/ 530)  27.6 E72-E48 S24-S10
     21  705  428 (S22E36 L=219)   912    105        4 ( 663/ 385- 743/ 465) -80.5 E38-E32 S25-S19
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y