Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1273 1713 (N47W35 L=134)  1534    304        5 (1243/1619-1330/1784)  36.3 W28-W44 N40-N52
      2  942 1503 (N37W01 L=100)   298     52        1 ( 911/1480- 970/1522)   0.0 E01-W03 N35-N38
      3 1363 1466 (N28W30 L=129)   244     83        1 (1340/1426-1380/1508) -80.5 W29-W31 N25-N31
      4 1007 1427 (N31W04 L=104)   268     79        0 ( 979/1393-1035/1459) -68.2 W02-W05 N28-N33
      5  739 1376 (N31E15 L= 84)   421    141        1 ( 704/1300- 769/1426) -66.0 E17-E13 N25-N34
      6 1096 1289 (N21W08 L=107)   196     71        0 (1061/1259-1129/1320) -53.1 W06-W09 N18-N23
      7 1589 1208 (N09W40 L=139)   339     99        0 (1551/1159-1621/1245) -63.4 W37-W41 N05-N11
      8 1255 1178 (N12W16 L=115)   373    109        2 (1210/1137-1293/1234) -60.3 W14-W18 N09-N16
      9 1099 1161 (N13W06 L=105)   297    113        1 (1035/1130-1149/1186)  14.0 W01-W09 N11-N14
     10  241 1037 (N13E56 L= 43)   635    108        1 ( 212/1007- 278/1081) -45.0 E59-E52 N11-N16
     11 1549  870 (S11W32 L=131)   243     58        0 (1523/ 839-1567/ 901)  53.1 W29-W33 S12-S08
     12  949  700 (S13E09 L= 90)   232     77        0 ( 933/ 660- 964/ 738)  68.2 E10-E07 S15-S10
     13 1458  561 (S30W24 L=123)  1557    278        1 (1329/ 483-1576/ 671)  25.3 W14-W33 S33-S23
     14  641  476 (S25E34 L= 65)   881    187        1 ( 573/ 437- 706/ 526)  18.4 E40-E28 S27-S21
  

    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